UU20TextAlarmNotify

U = User(Funzioni per applicazioni specifiche)

U = Funzioni generiche

La funzione UU20TextAlarmNotify viene utilizzata per eseguire un push di un allarme o warning in un buffer di tipo FIFO. Alla funzione occorre passare come parametri il codice dell'allarme, due parametri generici,l'array dove l'allarme verrà inserito e un array contenente una stringa in formato ASCII.

Questa funzione deve essere affiancata, in un applicativo qcl, al task feature ALARM

IMPLEMENTAZIONE

UU20AlarmNotify (AlarmNum, AlarmPar1, AlarmPar2, AlMBox, AlString)

Parametri:

IN/OUT	TIPO VARIABILE	NOME DI ESEMPIO	DIM
IN	CONST GLOBAL	AlarmNum	L	Codice dell'allarme
IN	CONST GLOBAL	AlarmPar1	L	Parametro generico 1 dell'allarme
IN	CONST GLOBAL	AlarmPar2	L	Parametro generico 2 dell'allarme
IN	ARRGBL	AlMBox	L	Array dove verrà inserito l'allarme
IN	ARRGBL	AlString	B	Array con la stringa in formato ASCII

Esempio

; THIS FUNCTION WORKS WITH FEATURE TASK "ALARMS"
 
;---------------------------------------------
;	Example
;---------------------------------------------
 
CONST
        STRING_ELEM     8
 
        ALARM_01        1                                               ; Alarm 01 value
 
GLOBAL
	AlarmNum 	L						; Alarm number
	AlarmPar1	L						; Alarm parameter 1
	AlarmPar2	L						; Alarm parameter 2 
        AlString01	L
	AlString02	L
 
        Alarm_01        L						; Alarm 01 occurs
        Alarm_01_Par_01 L                                               ; Alarm 01 parameter 1
        Alarm_01_Par_02 L                                               ; Alarm 01 parameter 2
        Alarm_01_String L                                               ; Alarm 01 string
        Alarm_02_String L                                               ; Alarm 02 string
 
        Index		L
	Errcode		F
 
ARRGBL
        AlString	B			STRING_ELEM     
 
BEGIN
 
MAIN:
	;-- Check generic alarm
	IF Alarm_01
		AlarmNum = ALARM_01
		AlarmPar1 = Alarm_01_Par_01
		AlarmPar2 = Alarm_01_Par_02
                AlString01 = Alarm_01_String  
		AlString02 = Alarm_02_String
		CALL SET_STRING
		UU20TextAlarmNotify(AlarmNum, AlarmPar1, AlarmPar2, ALARMS.AlMBox, AlString)
	ENDIF
WAIT 1
JUMP MAIN
END
 
SUB SET_STRING 
        Index = 1  
	VR10UWrToAsc (AlString02, Index, AlString, Errcode)
	Index = 5  
	VR10UWrToAsc (AlString01, Index, AlString, Errcode)            
ENDSUB